Os dados são do ICMS do estado do Rio de Janeiro, coletados no período de janeiro de 1993 a dezembro de 2023.
dados <- deflate(dados$ICMS, dados$Data, "12/2023", "igpm") |>
ts(start = c(2000, 1), frequency = 12) |>
(\(x) {
tibble(
Data = time(x) |>
zoo::as.Date(),
ICMS = c(as.matrix(x))
) |>
mutate(
Ano = factor(year(Data)),
Mês = factor(month(Data, label = TRUE))
)
})()
Deflacionado <- dados |>
plot_time_series(
Data,
ICMS,
.interactive = TRUE,
.title = ""
)